Serving Financial Service…olutions Suite 1994 Fall/Serving Financial Services Solutions Suite 1994 Fall.iso/Apps/FirstClass/Tailor.app/PDF__Execute.data

Text File | 1994-12-12 | 14KB | 2,451 lines

%! Adobe packPS Version 2.0 (9)

(* PDF Execute prolog - 31mar94 *\n)
print
/PDFVars
50
dict
def
PDFVars
begin
/_lp
/none
def
/_doClip
0
def
/_fc
0
def
/_sc
0
def
/_gf
null
def
/_cf
4
array
def
/_rgbf
3
array
def
/_gs
null
def
/_cs
4
array
def
/_rgbs
3
array
def
/_inT
false
def
/_tr
-1
def
/_rise
0
def
/_ax
0
def
/_cx
0
def
/_ld
0
def
/_tm
matrix
def
/_ctm
matrix
def
/_mtx
matrix
def
/_hy
(-)
def
/_fScl
0
def
/_hs
1
def
/_pdfEncodings
3
array
def
/Tj
0
def
/_italMtx[1
0
.212557
1
0
0]def
/_basefont
0
def
/_basefonto
0
def
/_currentresources
1
dict
def
/_tempfilesequence
0
def
end
/bd
{bind
def}
bind
def
/ld
{load
def}
bd
/dd
{
PDFVars
3
1
roll
put
}
bd
/xdd
{
exch
dd
}
bd
/npop
{
{
pop
}
repeat
}
bd
/here
{
dup
currentdict
exch
known
{
currentdict
exch
get
true
}
{
pop
false
}
ifelse
}
bd
/m
/moveto
ld
/l
/lineto
ld
/c
/curveto
ld
/v
{
currentpoint
6
2
roll
c
}
bd
/y
{
2
copy
c
}
bd
/h
/closepath
ld
/d
/setdash
ld
/j
/setlinejoin
ld
/J
/setlinecap
ld
/M
/setmiterlimit
ld
/w
/setlinewidth
ld
/cf
currentflat
def
/i
{
dup
0
eq
{
pop
cf
}
if
setflat
}
bd
/ilp
{
/_lp
/none
dd
}
bd
/N
{
_doClip
1
ge
{
_doClip
1
eq
{
clip
}
{
eoclip
}
ifelse
/_doClip
0
dd
}
if
newpath
}
bd
/n/N
ld
/F
{
_doClip
1
ge
{
gsave
_fc
fill
grestore
_doClip
1
eq
{
clip
}
{
eoclip
}
ifelse
newpath
ilp
/_doClip
0
dd
}
{
_fc
fill
}
ifelse
}
bd
/f/F
ld
/F*
{
_doClip
1
ge
{
gsave
_fc
eofill
grestore
_doClip
1
eq
{
clip
}
{
eoclip
}
ifelse
newpath
ilp
/_doClip
0
dd
}
{
_fc
eofill
}
ifelse
}
bd
/f*/F*
ld
/S
{
_doClip
1
ge
{
gsave
_sc
stroke
grestore
_doClip
1
eq
{
clip
}
{
eoclip
}
ifelse
newpath
ilp
/_doClip
0
dd
}
{
_sc
stroke
}
ifelse
}
bd
/s
{
h
S
}
bd
/B
{
_doClip
dup
1
ge
gsave
F
grestore
{
gsave
S
grestore
1
eq
{
clip
}
{
eoclip
}
ifelse
newpath
ilp
/_doClip
0
dd
}
{
pop
S
}
ifelse
}
bd
/b
{
h
B
}
bd
/B*
{
_doClip
dup
1
ge
gsave
F*
grestore
{
gsave
S
grestore
1
eq
{
clip
}
{
eoclip
}
ifelse
newpath
ilp
/_doClip
0
dd
}
{
pop
S
}
ifelse
}
bd
/b*
{
h
B*
}
bd
/W
{
/_doClip
1
dd
}
bd
/W*
{
/_doClip
2
dd
}
bd
/q
/save
ld
/Q
{
restore
ilp
}
bd
/g
{
/_gf
xdd
/_fc
{
_lp
/fill
ne
{
_gf
setgray
/_lp
/fill
dd
}
if
}
dd
ilp
}
bd
/G
{
/_gs
xdd
/_sc
{
_lp
/stroke
ne
{
_gs
setgray
/_lp
/stroke
dd
}
if
}
dd
ilp
}
bd
/k
{
_cf
astore
pop
/_fc
{
_lp
/fill
ne
{
_cf
aload
pop
setcmykcolor
/_lp
/fill
dd
}
if
}
dd
ilp
}
bd
/K
{
_cs
astore
pop
/_sc
{
_lp
/stroke
ne
{
_cs
aload
pop
setcmykcolor
/_lp
/stroke
dd
}
if
}
dd
ilp
}
bd
/rg
{
_rgbf
astore
pop
/_fc
{
_lp
/fill
ne
{
_rgbf
aload
pop
setrgbcolor
/_lp
/fill
dd
}
if
}
dd
ilp
}
bd
/RG
{
_rgbs
astore
pop
/_sc
{
_lp
/stroke
ne
{
_rgbs
aload
pop
setrgbcolor
/_lp
/stroke
dd
}
if
}
dd
ilp
}
bd
/pc
{
pop
0.5
g
}
bd
/PC
{
pop
0.5
G
}
bd
/cm
{
_mtx
astore
concat
}
bd
/re
{
4
2
roll
m
1
index
0
rlineto
0
exch
rlineto
neg
0
rlineto
h
}
bd
/RC
/rectclip
ld
/EF
/execform
ld
/swj
{
dup
4
1
roll
dup
length
exch
stringwidth
exch
5
-1
roll
3
index
mul
add
4
1
roll
3
1
roll
mul
add
6
2
roll
/_cnt
0
dd
{1
index
eq
{/_cnt
_cnt
1
add
dd}
if}
forall
pop
exch
_cnt
mul
exch
_cnt
mul
2
index
add
4
1
roll
2
index
add
4
1
roll
pop
pop
}
bd
/jss
{
4
1
roll
{
2
npop
(0)
exch
2
copy
0
exch
put
gsave
32
eq
{
exch
6
index
6
index
6
index
5
-1
roll
widthshow
currentpoint
}
{
false
charpath
currentpoint
4
index
setmatrix
stroke
}
ifelse
grestore
moveto
2
copy
rmoveto
}
exch
cshow
6
npop
}
def
/jsp
{
{
2
npop
(0)
exch
2
copy
0
exch
put
32
eq
{
exch
5
index
5
index
5
index
5
-1
roll
widthshow
}
{
false
charpath
}
ifelse
2
copy
rmoveto
}
exch
cshow
5
npop
}
bd
/trj
{
_cx
0
32
_ax
0
6
5
roll
}
bd
/pjsf
{
trj
_fc
awidthshow
}
bd
/pjss
{
trj
_ctm
_sc
jss
}
bd
/pjsc
{
trj
jsp
}
bd
/_Tjdef
[
/pjsf
load
/pjss
load
{
dup
currentpoint
3
2
roll
pjsf
newpath
moveto
pjss
}
bind
{
trj
swj
rmoveto
}
bind
{
dup
currentpoint
4
2
roll
gsave
pjsf
grestore
3
1
roll
moveto
pjsc
}
bind
{
dup
currentpoint
4
2
roll
currentpoint
gsave
newpath
moveto
pjss
grestore
3
1
roll
moveto
pjsc
}
bind
{
dup
currentpoint
4
2
roll
gsave
dup
currentpoint
3
2
roll
pjsf
newpath
moveto
pjss
grestore
3
1
roll
moveto
pjsc
}
bind
/pjsc
load
]
def
/BT
{
/_inT
true
dd
_ctm
currentmatrix
pop
matrix
_tm
copy
pop
0
_rise
translate
_hs
1
scale
0
0
moveto
}
bd
/ET
{
/_inT
false
dd
_tr
3
gt
{clip}
if
_ctm
setmatrix
newpath
}
bd
/Tr
{
_inT
{
_tr
3
le
{currentpoint
newpath
moveto}
if
}
if
dup
/_tr
xdd
_Tjdef
exch
get
/Tj
xdd
}
bd
/iTm
{
_ctm
setmatrix
_tm
concat
0
_rise
translate
_hs
1
scale
}
bd
/Tm
{
_tm
astore
pop
iTm
0
0
moveto
}
bd
/Td
{
_mtx
translate
_tm
_tm
concatmatrix
pop
iTm
0
0
moveto
}
bd
/TD
{
dup
/_ld
xdd
Td
}
bd
/Tf
{
dup
1000
div
/_fScl
xdd
exch
findfont
exch
scalefont
setfont
}
bd
/TL
{
neg
/_ld
xdd
}
bd
/Tw
{
/_cx
xdd
}
bd
/Tc
{
/_ax
xdd
}
bd
/Ts
{
/_rise
xdd
currentpoint
iTm
moveto
}
bd
/Tz
{
100
div
/_hs
xdd
iTm
}
bd
/Tk
{
exch
pop
_fScl
mul
neg
0
rmoveto
}
bd
/T*
{
0
_ld
Td
}
bd
/'
{
0
0
3
-1
roll
"
}
bd
/"
{
exch
Tc
exch
Tw
T*
Tj
}
bd
/TJ
{
{
dup
type
/stringtype
eq
{
Tj
}
{
0
exch
Tk
}
ifelse
}
forall
}
bd
/T-
{
_hy
Tj
}
bd
/d0
/setcharwidth
ld
/d1
{
setcachedevice
/_fc{}dd
/_sc{}dd
}
bd
/modEnc
{
/_enc
xdd
/_icode
0
dd
{
dup
type
/nametype
eq
{
_enc
_icode
3
-1
roll
put
_icode
1
add
}
if
/_icode
xdd
}
forall
_enc
}
bd
/defEnc
{
exch
StandardEncoding
256
array
copy
modEnc
_pdfEncodings
3
1
roll
put
}
bd
/PDFFontEquivalents
10
dict
def
/TailorCustomizeFontName
{
PDFFontEquivalents
1
index
cvn
known
{
PDFFontEquivalents
exch
cvn
get
}
if
}
bd
/defFont
{
PDFFontEquivalents
4
index
4
index
put
3
-1
roll
findfont
dup
length
2
add
dict
begin
{
1
index
/FID
ne
{
def
}
{
pop
pop
}
ifelse
}
forall
dup
0
ge
{
/Encoding
_pdfEncodings
2
index
get
def
}
if
pop
dup
length
0
gt
{
dup
/Encoding
load
256
array
copy
modEnc
/Encoding
exch
def
}
if
pop
currentdict
end
definefont
pop
}
bd
/T3Defs
{
/BuildChar
{
1
index
/Encoding
get
exch
get
1
index
/BuildGlyph
get
exec
}
def
/BuildGlyph
{
exch
begin
GlyphProcs
exch
get
exec
end
}
def
}
bd
PDFVars
begin
[39/quotesingle
96/grave
128/Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis
/Udieresis/aacute/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute
/egrave/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde
/oacute/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex
/udieresis/dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
/registered/copyright/trademark/acute/dieresis/.notdef/AE/Oslash
/.notdef/plusminus/.notdef/.notdef/yen/mu/.notdef/.notdef
/.notdef/.notdef/.notdef/ordfeminine/ordmasculine/.notdef/ae/oslash
/questiondown/exclamdown/logicalnot/.notdef/florin/.notdef/.notdef
/guillemotleft/guillemotright/ellipsis/.notdef/Agrave/Atilde/Otilde/OE/oe
/endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide
/.notdef/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright
/fi/fl/daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand
/Acircumflex/Ecircumflex/Aacute/Edieresis/Egrave/Iacute/Icircumflex
/Idieresis/Igrave/Oacute/Ocircumflex/.notdef/Ograve/Uacute/Ucircumflex
/Ugrave/dotlessi/circumflex/tilde/macron/breve/dotaccent/ring/cedilla
/hungarumlaut/ogonek/caron
]
0
defEnc
[
1/dotlessi/caron
39/quotesingle
96/grave
127/bullet/bullet/bullet/quotesinglbase/florin/quotedblbase/ellipsis
/dagger/daggerdbl/circumflex/perthousand/Scaron/guilsinglleft/OE
/bullet/bullet/bullet/bullet/quoteleft/quoteright/quotedblleft
/quotedblright/bullet/endash/emdash/tilde/trademark/scaron
/guilsinglright/oe/bullet/bullet/Ydieresis/space/exclamdown/cent/sterling
/currency/yen/brokenbar/section/dieresis/copyright/ordfeminine
/guillemotleft/logicalnot/hyphen/registered/macron/degree/plusminus
/twosuperior/threesuperior/acute/mu/paragraph/periodcentered/cedilla
/onesuperior/ordmasculine/guillemotright/onequarter/onehalf/threequarters
/questiondown/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla
/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex/Idieresis
/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis/multiply/Oslash
/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn/germandbls/agrave
/aacute/acircumflex/atilde/adieresis/aring/ae/ccedilla/egrave/eacute
/ecircumflex/edieresis/igrave/iacute/icircumflex/idieresis/eth/ntilde
/ograve/oacute/ocircumflex/otilde/odieresis/divide/oslash/ugrave/uacute
/ucircumflex/udieresis/yacute/thorn/ydieresis
]
1
defEnc
[
]
2
defEnc
end
/PDFinitialize
{
[]0
d
0
j
0
J
10
M
1
w
0
g
0
G
0
Tr
newpath
}
bind
def
/PDFterminate
{
}
bind
def
/resolve
{
dup
type
/arraytype
eq
{
dup
length
3
eq
{
dup
0
get
/_IndirectReference
eq
{
1
get
PDFObjects
exch
get
1
get
}
if
}
if
}
if
}
bind
def
/getif
{
3
1
roll
2
copy
known
{
get
resolve
exch
exec
}
{
pop
pop
pop
}
ifelse
}
bind
def
/getifelse
{
4
2
roll
2
copy
known
{
get
resolve
exch
pop
exch
exec
}
{
pop
pop
exch
pop
exec
}
ifelse
}
bind
def
/shorthandsForKeys
<<
/W
/Width
/H
/Height
/BPC
/BitsPerComponent
/CS
/ColorSpace
/D
/Decode
/I
/Interpolate
/IM
/ImageMask
/F
/Filter
/DP
/DecodeParms
>>
def
/shorthandsForValues
<<
/AHx
/ASCIIHexDecode
/A85
/ASCII85Decode
/LZW
/LZWDecode
/RL
/RunLengthDecode
/CCF
/CCITTFaxDecode
/DCT
/DCTDecode
/CMYK
/DeviceCMYK
/G
/DeviceGray
/RGB
/DeviceRGB
/I
/Indexed
>>
def
/expandshorthands
{
10
dict
begin
{
exch
shorthandsForKeys
1
index
known
{
shorthandsForKeys
exch
get
}
if
exch
dup
type
/nametype
eq
{
shorthandsForValues
1
index
known
{
shorthandsForValues
exch
get
}
if
}
if
def
}
forall
currentdict
end
}
bind
def
/applystreamfilters
{
/Filter
here
{
dup
type
/arraytype
eq
{
length
}
{
pop
1
}
ifelse
1
sub
0
1
3
-1
roll
{
/DecodeParms
here
{
dup
type
/arraytype
eq
{
1
index
get
}
if
dup
null
eq
{
pop
}
{
exch
}
ifelse
}
if
Filter
dup
type
/arraytype
eq
{
exch
get
}
{
exch
pop
}
ifelse
filter
}
for
}
if
}
bind
def
/printfile
{
/_printfile_string
1000
string
def
{
dup
_printfile_string
readstring
exch
print
not
{
exit
}
if
}
loop
pop
}
bind
def
/uniquefilename
{
_tempfilesequence
1
add
/_tempfilesequence
xdd
23
string
dup
0
(/tmp/TailorPDF_)
putinterval
100
_tempfilesequence
add
1
index
15
3
getinterval
cvs
pop
dup
18
(.temp)
putinterval
}
bind
def
/openfileonstream
{
uniquefilename
exch
1
index
(w)
file
exch
{1
index
exch
writestring
dup
(\n)
writestring}
forall
closefile
(r)
file
}
bind
def
/initprogressfromstream
{
0
exch
{
length
add
}
forall
($$ Stream length : )
print
dup
prtnum
( $$\n)
print
//EngineFeedbackDict
begin
/totalbytes
1
index
def
/leftbytes
exch
def
/availbytes
0
def
end
}
bind
def
/executestream
{
count
PDFVars
exch
/_stackcount
exch
put
dup
type
/dicttype
eq
{
begin
/_StreamData
here
{
dup
initprogressfromstream
openfileonstream
applystreamfilters
cvx
exec
}
if
end
}
if
{
count
_stackcount
lt
{exit}
if
pop}
loop
}
bind
def
/addimageparams
{
/ImageType
1
def
/ImageMatrix
[
Width
0
0
Height
neg
0
Height
]
def
currentdict
/ImageMask
known
not
{
/ImageMask
false
def
}
if
ImageMask
not
{
ColorSpace
setcolorspace
}
if
/Decode
here
{
pop
}
{
/Decode
[
ImageMask
{
0
1
}
{
currentcolorspace
0
get
/Indexed
eq
{
0
2
BitsPerComponent
exp
1
sub
}
{
mark
currentcolor
counttomark
dup
2
add
1
roll
cleartomark
{
0
1
}
repeat
}
ifelse
}
ifelse
]
def
}
ifelse
}
bind
def
/BI
{
<<
}
bd
/EI
{
}
bd
/ID
{
>>
expandshorthands
begin
addimageparams
/DataSource
here
{
pop
}
{
/DataSource
currentfile
applystreamfilters
def
}
ifelse
currentdict
ImageMask
{
_fc
imagemask
}
{
image
}
ifelse
end
}
bd
/Do
{
_currentresources
/XObject
{
1
index
{
begin
/Subtype
here
{
/Image
eq
{
/_StreamData
here
{
($$ start executing image resource $$\n)
print
openfileonstream
addimageparams
applystreamfilters
/DataSource
exch
def
currentdict
ImageMask
{
_fc
imagemask
}
{
image
}
ifelse
}
if
}
if
}
if
end
}
getif
}
getif
pop
}
bd
/fetchencoding
{
($$ Fetch encoding for :)
print
dup
prtnum
( $$\n)
print
/_diffArr
[]
def
/_encIndex
-1
def
dup
type
/dicttype
eq
{
dup
/BaseEncoding
{
dup
/MacRomanEncoding
eq
{
/_encIndex
0
def
}
if
dup
/WinAnsiEncoding
eq
{
/_encIndex
1
def
}
if
/MacExpertEncoding
eq
{
/_encIndex
2
def
}
if
}
getif
dup
/Differences
{
/_diffArr
exch
def
}
getif
}
if
dup
/MacRomanEncoding
eq
{
/_encIndex
0
def
}
if
dup
/WinAnsiEncoding
eq
{
/_encIndex
1
def
}
if
dup
/MacExpertEncoding
eq
{
/_encIndex
2
def
}
if
pop
($$ Resulting index is )
print
_encIndex
prtnum
(with )
print
_diffArr
length
prtnum
(differences $$\n)
print
_diffArr
_encIndex
}
bind
def
/assignfonts
{
{
resolve
dup
/FontDescriptor
{
/FontFile
{
executestream
}
getif
}
getif
dup
/Encoding
{
fetchencoding
}
{
[]
-1
}
getifelse
3
-1
roll
/BaseFont
{
3
1
roll
defFont
}
{
pop
pop
pop
}
getifelse
}
forall
}
bind
def
/executecontents
{
dup
type
/arraytype
ne
{
1
array
astore
}
if
PDFinitialize
($$** Start executing page contents **$$\n)
print
{
executestream
}
forall
PDFterminate
showpage
}
bind
def
/executepage
{
dup
/Resources
{
/_currentresources
1
index
def
dup
/Font
{
assignfonts
}
getif
pop
}
getif
dup
/Contents
{
executecontents
}
getif
/Kids
{
{
resolve
dup
/Count
{}{1}
getifelse
dup
ordinal
ge
{
pop
executepage
exit
}
if
ordinal
exch
sub
/ordinal
exch
def
pop
}
forall
}
getif
}
bind
def
/ExecutePage
{
//EngineFeedbackDict
/progress
0
put
//EngineFeedbackDict
/totalbytes
1
put
PDFVars
begin
/_tempfilesequence
0
def
/ordinal
exch
def
PDFObjects
/Root
{
/Pages
{
executepage
}
getif
}
getif
end
}
bind
def
/GetJobInfo
{
PDFObjects
/Info
{
dup
/Author
{
}
{
()
}
getifelse
exch
dup
/CreationDate
{
}
{
()
}
getifelse
exch
dup
/Creator
{
}
{
()
}
getifelse
exch
/Producer
{
}
{
()
}
getifelse
}
{
()
()
()
()
}
getifelse
}
bind
def
/GetPageCount
{
0
PDFObjects
/Root
{
/Pages
{
/Count
{
exch
pop
}
getif
}
getif
}
getif
}
bind
def
/getsizeinfo
{
dup
/MediaBox
{
dup
2
get
/x
exch
def
3
get
/y
exch
def
x
0
gt
y
0
gt
and
{
mediaX
0
lt
{
/mediaX
x
def
/mediaY
y
def
}{
mediaX
x
ne
mediaY
y
ne
or
{
/mediaX
0
def
/mediaY
0
def
}
if
}
ifelse
}
if
}
getif
dup
/CropBox
{
dup
2
get
/x
exch
def
3
get
/y
exch
def
x
cropX
gt
{
/cropX
x
def
}
if
y
cropY
gt
{
/cropY
y
def
}
if
}
getif
/Kids
{
{
resolve
getsizeinfo
}
forall
}
getif
}
bind
def
/GetSizeInfo
{
10
dict
begin
/mediaX
-1
def
/mediaY
-1
def
/cropX
0
def
/cropY
0
def
PDFObjects
/Root
{
/Pages
{
getsizeinfo
}
getif
}
getif
mediaX
mediaY
cropX
cropY
end
}
bind
def